﻿<Serializable()> Public Class FText
    Public Sub New(ByVal str As String, ByVal x As Double, ByVal y As Double, ByVal rotation As Double)

        Me.str = str
        Me.x = x
        Me.y = y
        Me.rotation = rotation

        justification = TEXTJUSTIFICATION.LEFT

    End Sub

    Public Sub New(ByVal str As String, ByVal x As Double, ByVal y As Double, ByVal rotation As Double, ByVal justi As TEXTJUSTIFICATION)

        Me.str = str
        Me.x = x
        Me.y = y
        Me.rotation = rotation

        justification = justi


    End Sub

    Public str As String
    Public x As Double
    Public y As Double
    Public rotation As Double

    Public justification As TEXTJUSTIFICATION

End Class

Public Enum TEXTJUSTIFICATION
    LEFT
    RIGHT
    CENTER

End Enum